PRO showreal,data,grid=grid,delay=delay
 temp=reform(data)
 dims=size(temp)
 nlevel = 20
 color=20+2.4*100*findgen(NLEVEL+1)/NLEVEL
 LoadCT,3
 IF NOT KEYWORD_SET(delay) THEN delay =0.2
 IF (dims[0] EQ 2) OR (dims[0] EQ 3) THEN BEGIN
    IF dims[0] EQ 2 THEN BEGIN
       print,'debug>>>>data is 2D!'
       showdata,reform(temp) 
    ENDIF ELSE BEGIN
       print,'debug>>>>data is 3D!'
       FOR jt =1, dims[3]-1  DO BEGIN
          IF NOT KEYWORD_SET(grid)  THEN goto, exitflag
          title ='TIME = '+string(jt)
          polslice,reform(temp[*,*,jt]),grid,nlevel =nlevel,color=color,title =title
          wait,delay
       ENDFOR
    ENDELSE

 ENDIF ELSE BEGIN
   print,'debug>>>>data must be 2-3D!'
 ENDELSE
 exitflag:IF NOT KEYWORD_SET(grid)  THEN print,'debug>>>>grid must be needed!'
END 
